IF exists(SELECT * FROM dbo.sysobjects WHERE name='AD_transformeer' AND xtype='FN') 
BEGIN
	DROP FUNCTION AD_transformeer
END
GO

CREATE   Function AD_transformeer
(  @voornaam varchar(50),
   @achternaam varchar(50))
returns varchar(50)
begin
declare @deAchternaam varchar(50)
declare @deVoornaam varchar(50)
declare @mailNaam varchar(20)

select @deAchternaam = lower(@achternaam)
    while charindex(' ',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex(' ',@deAchternaam),1,'')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'e')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'c')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'e')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'o')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'o')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'e')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'a')
    while charindex('''',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('''',@deAchternaam),1,'')
    while charindex('-',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('-',@deAchternaam),1,'')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'i')

select @deVoornaam = lower(@voornaam)
    while charindex(' ',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex(' ',@deVoornaam),1,'')
    while charindex('',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('',@deVoornaam),1,'e')
    while charindex('',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('',@deVoornaam),1,'c')
    while charindex('',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('',@deVoornaam),1,'e')
    while charindex('',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('',@deVoornaam),1,'o')
    while charindex('',@deAchternaam) > 0 
	select @deAchternaam = stuff(@deAchternaam,charindex('',@deAchternaam),1,'o')
    while charindex('',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('',@deVoornaam),1,'e')
    while charindex('',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('',@deVoornaam),1,'a')
    while charindex('''',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('''',@deVoornaam),1,'')
    while charindex('-',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('-',@deVoornaam),1,'')
    while charindex('',@deVoornaam) > 0 
	select @deVoornaam = stuff(@deVoornaam,charindex('',@deVoornaam),1,'i')

if len(@deAchternaam) + len(@deVoornaam) > 19
	set @mailNaam = left(@deAchternaam,18) + '.' + left(@deVoornaam,1)
else 
	set @mailNaam = @deAchternaam + '.' + @deVoornaam

return @mailNaam
end 